home *** CD-ROM | disk | FTP | other *** search
/ Ah My Goddess / Ah My Goddess.iso / pc / stage / skt640.dxr / 00020.ls < prev    next >
Encoding:
Text File  |  1997-09-08  |  2.8 KB  |  60 lines
  1. on sethour
  2.   global gvsktwhour, gvsktwmin, gvsktwsec, gvsktwhourl, gvsktwminl, gvsktwsecl, gvskthenipointx, gvskthenipointy, gvsktwpointx, gvsktwpointy
  3.   set lvkaku to 2 * PI * gvsktwhour / 12.0
  4.   if gvsktwhour = 0 then
  5.     set the memberNum of sprite 5 to 7
  6.     spriteBox(5, gvsktwpointx - 1, gvsktwpointy - gvsktwhourl, gvsktwpointx + 1, gvsktwpointy)
  7.   else
  8.     if gvsktwhour = 3 then
  9.       set the memberNum of sprite 5 to 7
  10.       spriteBox(5, gvsktwpointx, gvsktwpointy - 1, gvsktwpointx + gvsktwhourl, gvsktwpointy + 1)
  11.     else
  12.       if gvsktwhour = 6 then
  13.         set the memberNum of sprite 5 to 7
  14.         spriteBox(5, gvsktwpointx - 1, gvsktwpointy, gvsktwpointx + 1, gvsktwpointy + gvsktwhourl)
  15.       else
  16.         if gvsktwhour = 9 then
  17.           set the memberNum of sprite 5 to 7
  18.           spriteBox(5, gvsktwpointx - gvsktwhourl, gvsktwpointy - 1, gvsktwpointx, gvsktwpointy + 1)
  19.         else
  20.           if (gvsktwhour > 0) and (gvsktwhour < 3) then
  21.             set the memberNum of sprite 5 to 7
  22.             set lvleft to integer(gvsktwpointx)
  23.             set lvtop to integer(gvsktwpointy - (gvsktwhourl * cos(lvkaku)))
  24.             set lvright to integer(gvsktwpointx + (gvsktwhourl * sin(lvkaku)))
  25.             set lvbottom to integer(gvsktwpointy)
  26.             spriteBox(5, lvleft, lvtop, lvright, lvbottom)
  27.           else
  28.             if (gvsktwhour > 3) and (gvsktwhour < 6) then
  29.               set the memberNum of sprite 5 to 8
  30.               set lvleft to integer(gvsktwpointx)
  31.               set lvtop to integer(gvsktwpointy - (gvsktwhourl * cos(lvkaku)))
  32.               set lvright to integer(gvsktwpointx + (gvsktwhourl * sin(lvkaku)))
  33.               set lvbottom to integer(gvsktwpointy)
  34.               spriteBox(5, lvleft, lvtop, lvright, lvbottom)
  35.             else
  36.               if (gvsktwhour > 6) and (gvsktwhour < 9) then
  37.                 set the memberNum of sprite 5 to 7
  38.                 set lvleft to integer(gvsktwpointx + (gvsktwhourl * sin(lvkaku)))
  39.                 set lvtop to integer(gvsktwpointy)
  40.                 set lvright to integer(gvsktwpointx)
  41.                 set lvbottom to integer(gvsktwpointy - (gvsktwhourl * cos(lvkaku)))
  42.                 spriteBox(5, lvleft, lvtop, lvright, lvbottom)
  43.               else
  44.                 if (gvsktwhour > 9) and (gvsktwhour < 12) then
  45.                   set the memberNum of sprite 5 to 8
  46.                   set lvleft to integer(gvsktwpointx + (gvsktwhourl * sin(lvkaku)))
  47.                   set lvtop to integer(gvsktwpointy)
  48.                   set lvright to integer(gvsktwpointx)
  49.                   set lvbottom to integer(gvsktwpointy - (gvsktwhourl * cos(lvkaku)))
  50.                   spriteBox(5, lvleft, lvtop, lvright, lvbottom)
  51.                 end if
  52.               end if
  53.             end if
  54.           end if
  55.         end if
  56.       end if
  57.     end if
  58.   end if
  59. end
  60.